home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / han_al.inc < prev    next >
Encoding:
Text File  |  1998-07-22  |  3.0 KB  |  202 lines
  1. *---------------------------------------
  2. *
  3. *    ò\Ī
  4. *
  5. *    ÄπìUîé
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. low:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     tst.w    C_LR_F(a1)
  14.     bne    @f
  15.  
  16.     subi.w    #16,d1
  17.     subi.w    #32,d2
  18.     addi.w    #$0019,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d1
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     subi.w    #16,d1
  32.     addi.w    #16,d2
  33.     addq.w    #1,d7
  34.     move.w    d1,(a6)+
  35.     move.w    d2,(a6)+
  36.     move.w    d7,(a6)+
  37.     move.w    #$0003,(a6)+
  38.  
  39.     addi.w    #16,d1
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     addi.w    #16,d1
  47.     addq.w    #1,d7
  48.     move.w    d1,(a6)+
  49.     move.w    d2,(a6)+
  50.     move.w    d7,(a6)+
  51.     move.w    #$0003,(a6)+
  52.  
  53.     subi.w    #32,d1
  54.     addi.w    #16,d2
  55.     addq.w    #1,d7
  56.     move.w    d1,(a6)+
  57.     move.w    d2,(a6)+
  58.     move.w    d7,(a6)+
  59.     move.w    #$0003,(a6)+
  60.  
  61.     addi.w    #16,d1
  62.     addq.w    #1,d7
  63.     move.w    d1,(a6)+
  64.     move.w    d2,(a6)+
  65.     move.w    d7,(a6)+
  66.     move.w    #$0003,(a6)+
  67.  
  68.     addi.w    #16,d1
  69.     addq.w    #1,d7
  70.     move.w    d1,(a6)+
  71.     move.w    d2,(a6)+
  72.     move.w    d7,(a6)+
  73.     move.w    #$0003,(a6)+
  74.  
  75.     subi.w    #32,d1
  76.     addi.w    #16,d2
  77.     addq.w    #1,d7
  78.     move.w    d1,(a6)+
  79.     move.w    d2,(a6)+
  80.     move.w    d7,(a6)+
  81.     move.w    #$0003,(a6)+
  82.  
  83.     addi.w    #16,d1
  84.     addq.w    #1,d7
  85.     move.w    d1,(a6)+
  86.     move.w    d2,(a6)+
  87.     move.w    d7,(a6)+
  88.     move.w    #$0003,(a6)+
  89.  
  90.     subi.w    #16,d1
  91.     addi.w    #16,d2
  92.     addq.w    #1,d7
  93.     move.w    d1,(a6)+
  94.     move.w    d2,(a6)+
  95.     move.w    d7,(a6)+
  96.     move.w    #$0003,(a6)+
  97.  
  98.     addi.w    #16,d1
  99.     addq.w    #1,d7
  100.     move.w    d1,(a6)+
  101.     move.w    d2,(a6)+
  102.     move.w    d7,(a6)+
  103.     move.w    #$0003,(a6)+
  104.  
  105.     rts
  106. @@:
  107.     subi.w    #16,d1
  108.     subi.w    #32,d2
  109.     addi.w    #$401a,d7
  110.     move.w    d1,(a6)+
  111.     move.w    d2,(a6)+
  112.     move.w    d7,(a6)+
  113.     move.w    #$0003,(a6)+
  114.  
  115.     addi.w    #16,d1
  116.     subq.w    #1,d7
  117.     move.w    d1,(a6)+
  118.     move.w    d2,(a6)+
  119.     move.w    d7,(a6)+
  120.     move.w    #$0003,(a6)+
  121.  
  122.  
  123.     subi.w    #32,d1
  124.     addi.w    #16,d2
  125.     addq.w    #4,d7
  126.     move.w    d1,(a6)+
  127.     move.w    d2,(a6)+
  128.     move.w    d7,(a6)+
  129.     move.w    #$0003,(a6)+
  130.  
  131.     addi.w    #16,d1
  132.     subq.w    #1,d7
  133.     move.w    d1,(a6)+
  134.     move.w    d2,(a6)+
  135.     move.w    d7,(a6)+
  136.     move.w    #$0003,(a6)+
  137.  
  138.     addi.w    #16,d1
  139.     subq.w    #1,d7
  140.     move.w    d1,(a6)+
  141.     move.w    d2,(a6)+
  142.     move.w    d7,(a6)+
  143.     move.w    #$0003,(a6)+
  144.  
  145.  
  146.     subi.w    #32,d1
  147.     addi.w    #16,d2
  148.     addq.w    #5,d7
  149.     move.w    d1,(a6)+
  150.     move.w    d2,(a6)+
  151.     move.w    d7,(a6)+
  152.     move.w    #$0003,(a6)+
  153.  
  154.     addi.w    #16,d1
  155.     subq.w    #1,d7
  156.     move.w    d1,(a6)+
  157.     move.w    d2,(a6)+
  158.     move.w    d7,(a6)+
  159.     move.w    #$0003,(a6)+
  160.  
  161.     addi.w    #16,d1
  162.     subq.w    #1,d7
  163.     move.w    d1,(a6)+
  164.     move.w    d2,(a6)+
  165.     move.w    d7,(a6)+
  166.     move.w    #$0003,(a6)+
  167.  
  168.  
  169.     subi.w    #16,d1
  170.     addi.w    #16,d2
  171.     addq.w    #4,d7
  172.     move.w    d1,(a6)+
  173.     move.w    d2,(a6)+
  174.     move.w    d7,(a6)+
  175.     move.w    #$0003,(a6)+
  176.  
  177.     addi.w    #16,d1
  178.     subq.w    #1,d7
  179.     move.w    d1,(a6)+
  180.     move.w    d2,(a6)+
  181.     move.w    d7,(a6)+
  182.     move.w    #$0003,(a6)+
  183.  
  184.  
  185.     subi.w    #16,d1
  186.     addi.w    #16,d2
  187.     addq.w    #3,d7
  188.     move.w    d1,(a6)+
  189.     move.w    d2,(a6)+
  190.     move.w    d7,(a6)+
  191.     move.w    #$0003,(a6)+
  192.  
  193.     addi.w    #16,d1
  194.     subq.w    #1,d7
  195.     move.w    d1,(a6)+
  196.     move.w    d2,(a6)+
  197.     move.w    d7,(a6)+
  198.     move.w    #$0003,(a6)+
  199.  
  200.     rts
  201. *---------------------------------------
  202.